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The FORBAS Control Language provides a software tool 


for manipulating FORTRAN and BASIC programs, comp le- 


menting the hardware controls built into the teletype- 


writer (TTY) and described in the Console User's Guide. 


The tasks performed by FORBAS include system monitoring, 


file input/output, program utility functions, and line 


and program editing. 


FORBAS commands differ from routine programming commands 


insofar as they do not require line numbers, are not 


stored, are executed immediately, and can be issued at 


any time. Like program commands, however, they are 


terminated with a carriage return (RETURN key). For the 


sake of smooth reading, no "CR" or "RET" is shown in 


examples, but the statements do not execute without it. 
p 3 it 


Another manual convention is to underline what the user 


keys into the TTY to avoid confusion with system-generated 


printout. 


Rather than simply list commands alphabetically, which is 


done adequately enough by the index, this manuel attempts 


to teach the language in the approximate order of need. 


To wit: 
Chapter 2: 
Chapter 32 
Chapter 4: 


Chapter 5: 


LOGGING ON/OFF, 
BUILDING FILES, 
LISTING AND CHANGING FILES, 


COMBINING FILES. 


You will find that the FORBAS commands become second 
nature with a little Seas, The most instructive © 
approach is to experiment. on a small FORTRAN or BASIC 
program, changing statements slightly, listing by 
various methods, etc. Do not be frustrated by initial 
difficulties. As the computer would say, "to err is 


only human.” 


Appendix A lists a few technicalities to be considered 
when using FORBAS. Although they will probably be a 
bit incomprehensible at this juncture, you should at 


least skim them before going on to the next chapter. — 


LOGGING ON 


2. LOGGING ON/OFF 
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The procedure for calling the computer depends on 
whether your TTY is hard-wired to it or whether you 

are using a telephone link. In the first case, simply 
turn the TTY ON (or to LINE or ON-LINE as your specific 
model requires). In the case of the telephone Link, 
turn on the TTY, set the HALF/FULL DUPLEX switch to 
HALF, dial the appropriate phone number, wait for an 
answering tone, and finally place the telephone receiver 
in the acoustic coupler. If you are using a local line, 
you may simply have to dial a single digit ona dial 


built into the TTY keyboard. 


Having contacted the computer, you are asked to supply 
your user number (four alphanumeric characters) and 

user password (four characters - no restrictions). The 
latter is disguised (typed over "MMMM?") to protect your 


account. End both numbers with a carriage return. 


If you type in the wrong information, the TITY responds 
with INVALID USER NUMBER. Should you still want to log 


on, just call the comouter and try again, and again... 


OLD and NEW Commands 


You are next asked to "TYPE OLD OR NEW", that is, state 
whether you want the computer to load a previously stored 


program or to accept a program you are about to create. 
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After you reply, the computer requests the name of 


the old or new program file. 
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Once you have been given the "READY" indication, you 
should use the SYSTEM command to tell the computer 
whether your new program is to be written in FORTRAN 

or BASIC. You may type SYSTEM or SYS, to which the TTY 
responds with SYSTEM NAME--and waits for FOR or BAS. 
Alternatively, you may type SYS:BAS or SYS:FOR and the 


TTY will skip the formalities. 


Once a program has been saved (1i.é., is an OLD program), 
the system identification is not needed to reload it. 


The computer remembers the creation language. 


The entire transaction to this point looks like the 
following (user type underscored) : 
BCC TIME SHARING SYSTEM 
ON AT ~ 16:91 PORT: 33 
USER NUMBER -~ A123 
PAS SWORD 
MMMM ? 
TYPE OLD OR NEW:NEW 
PROBLEM NAME: EXMPL1 _ 
READY 
READY 


And now begin typing your program: 


LOGGING OFF 


BYE and GOODBYE Commands 


Logging off the system is relatively uncomplicated. 
Type BYE (or GOODBYE, according to how your mother 
raised vou). 


Turn off the TTY. 


HELLO and RESTART Commands 
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If a brother (or sister) programmer is waiting to use 
your TTY, do not type BYE. Instead, type HELLO or 
RESTART and the TTY will cut back to the user number 


request sequence. 
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STATUS and TTY Commands 


You can monitor the system at any time by typing STATUS 
or TTY. STATUS will cause the teletypewriter to type 
out the current state of the system (e.g., idle, run, 


list, save, etc.) 


Typing TTY will give you the number of the current user, 
the name and system identification of the current pro- 
gram, and the amount of computer time used in the 
current run. 
Example: 
STATUS 
IDLE 


ory. 
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USER:A123 PROB:EXMPL1 SYS:BAS RUNNING TIME: (9.7 


SEC 
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READING PAPER TAPE 
| The procedures for punching and reading paper tape 
are described in the Console User's Guide. Because 
reading a tape also requires two FORBAS commands, 
this procedure is repeated here. See the Console 


User's Guide for details about keys mentioned, etc. 


When reading paper tape be sure the tape surface 


is facing upward (small tape feed holes to the left). 


If applicable press TD ON and set the tape read unit 


to either T, KT, or TTS mode. 


TAPE Command 
Type the command TAPE and set the tape read switch to 


START. 


The tape read stops automatically when the last char- 
acter (or CTRL/X OFF) is read. Reading can be halted 


at any time by hitting the read unit's STOP switch. 
KEY Command eae. 


When finished, press TD OFF and type the command KEY 


to reset the computer to normal (keyboard input) mode. 
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WHAT IS A FILE? 


Libraries 


3. BUILDING FILES 


The term "file" is applied to several types of related 
information (user program, system utility program, in- 
put data, etc.). It may be only temporary, such as a 
program to perform a one-shot calculation, or it may be 


Saved permanently on a disk storage unit. 


Fach user is assigned a file storage area. You are also 
assigned a user catalog that lists all your files by 
file name together with the location of the file in your 
Speciric user area. Your files may be accessed only 
through your own catalog. Each time you save or delete 


a file, your catalog is updated automatically. 


Two different types of library can be accessed under BCC 
file operation: the BCC system library and user libraries. 
The first contains utility packages developed at the BCC 
as Gaseaniaeien: Although any customer may use these 
files, changes may be instituted only by BCC systems 


programmers. 


Your group of programmers might also wish to establish a 
private library of frequently called routines or data. 
The group identification and the establishment of your 
library is handled at your own installation. User 
library names are limited to three alphanumeric characters. 


Maintenance and changes to the library are the respons~ 


ibility of a designated librarian. 


NAMING FILES 
Commands. described in this section: 
NEW RENAME, 


SCRATCH RENAME: file 


File names may contain up to six alphanumeric characters. 
Most symbols and non-—printing elements are verboten, 
but you may Gee control (CTRL)A-Z. (Hold sowie the 
CTRL key while typing the desired letter key.) 
Acceptable: MAXMIN 
123S# (SH only legal symbols) 
Be C123 
Rejectable: BCC 12 (space illegal) 
| SEXINAME (too many characters) 


Al2@ (@ illegal) 


NEW Command 
The name of your file is established during the log-in. 
procedure using the NEW command. 
TYPE OLD OR NEW:NEW 


PROBLEM NAME: EXMPLL 


Had you typed NEW:EXMPL1, the PROBLEM NAME line would 

have been omitted. 

You Nay change the name of your file without changing 

its content using one of the RENAME commands, or conversely, 


you may delete its content while retaining the name 


using the SCRATCH command. 
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Suppose you had stored the file named EXMPL1 initiated 
above. you might wish to play with a copy of this file 
without disturbing the stored version. 

TYPE OLD OR NEW:0LD 

PROBLEM NAME: EXMPLL 

READY 


PROBLEM NAME: EXMPL2 


EXMPL1] is still intact in storage, and EXMPL2 is a new 
temporary file with the same content. The same oper- 
ation could have been accomplished more directly with 
the command format 

RENAME: EXMPL2 
In this instance the current file is renamed without the 
TTY asking again for PROBLEM NAME. The renamed file can 


also be saved if you wish. 
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If you want to delete all the data in the current file 
without deleting the name, simply type SCRATCH. 
READY 


SCRATCH 


If you then ask for a file listing (with heading) you 
will receive a message like the following: 


EXMPL2 13:22 BCC §Q8/14/7% FRI. 


NO PROGRAM 
READY 
The SCRATCH command doesn't affect stored versions of 


a program. 


File Password 
As an added file protection feature, you can adda 
password to your file identification. (This password 
is not to be confused with the four--character user 
password requested by the TTY as part of the log-on 
procedure. ) A file thus secured can be loaded only if 


both the file name and password are supplied. 


You should keep a personal list of your passwords and 
associated file names because only the file names are 
i 


shown in a catalog listing. 


The assignment of passwords is described in the next 
section as part of the SAVE command. In general, though, 
a paceyeed is limited to six characters, which may be 
alphabetic, numeric, control characters (CTRL) A~2Z, 
plus internal codes 100-137 octal (lower case letters 
and other funnies). 
Legal: MYCODE 
MOINS RS 
{1123} 
Tllegal: SEXINAME (still too long) 


@ $1.25 (illegal symbols) 


STORING/RETRIEVING FILES 
Conmands described in this section: 
SAVE OLD 


UNSAVE EDIT PACK 


SAVE Command 
Storing a erie is an easy matter using the "straight" 
SAVE command. For the sake of example, let's define 
a short BASIC program to calculate the hypotenuse of a 


right triangle, remembering the formula, 
(hypotenuse) a2 = Be + co? 


A = 3? ss c? 
This program is to be called BASEX1, a mnemonic for 
"BASIC example one." The BASIC statements themselves 
are ignored in this discussion as they are the subject 
of a separate BASIC Programming Manual. 
TYPE OLD OR NEW: NEW 
PROBLEM NAME:BASEX1 


READY 
SYS:BAS 


READY 
2_REM HYPOTENUSE 


29 READ B,C 


 cabtrashaminenbieatimintomietiadingtnnel 


25 LET A = SOR (Bt2 + Ct2) 
3Q@ PRINT A 


UE OIE A APTN TET IND 


4g GOTO 29 

59 DATA 4,3, 6.23, 7.1, 2.1B6, 3199 
69 END 

SAVE 


8 


READY 


And like that you have a stored program! If a file 


named BASEX] already exists in your catalog, it is 


deleted and the catalog entry changed to show the 
location of the new BASEX1 (let the namer beware!). 
Note that the straight SAVE command includes no allow-- 
ance for a password or for access privileges for 
programmers with a different user: name. These options 
are included in the SAVE variations. 
SAVE:password This saves the current eriecwith 
a password. This format is also 
used when replacing a copy of an 
OLD file protected by the spe- 
cified password. 
SAVE:POCUS 
SAVE:new pwd, Use this format to change the 
old pwd | 
password of the current file. 
SAVE: ,oOld pwd This command allows you to delete 
the password from the current 


file with no replacement. 


SAVE: _, POCUS 


You may want to let programmers with differing user 
numbers access your files. This is done using the SAVE 
command with the three "privilege codes" described 
below. All three codes may be specified in the same 
SAVE. You may also drop the file's password as in the 


last example shown above. 


Code R allows others only to read and list your file. 


Code W allows them to write over your file or add 


information. 


Code E permits others to execute the file, but in 
no way to modify it. 
Examples: 
SAVE: , POCUS, R, E 
SAVE: , ,W 


SAVE: , ,R,W,E 


The command to delete a saved file is, logically enough, 
UNSAVE, and comes in roughly the same flexibile varieties. 
UNSAVE Deletes the current file and 
updates your catalog and 
storage area accordingly. 
UNSAVE: /passuore iii the same for a current 
file protected by a password. 
-. UNSAVE: file name Deletes the named file rather 
than the current one. 
UNSAVE: file name/pwd I think you have the hang of 


it by now. 


Cleaning up files that are no longer in use is a good 
practice--~economical from the viewpoint of access time > 
saved, storage space saved, and dollars saved (which is 


freguently what it's all about). 


EDIT PACK Command 


Before leaving the subject of economics and file storage, 


one more handy tool should be introduced. The EDIT 
PACK instruction peneues all fill characters and 
extraneous blanks from the current file, allowing about 
a ten percent saving in storage requirements. Before 
using this command you would be wise to specify your 
SYSTEM. Otherwise weird and not very wonderful things 


may happen. 


Applying EDIT PACK to the BASEX1 file saved earlier 
would give you the following: 

BASEX1 

5REMHYPOTENUSE 

2QREADB,C 

2 55SLETA=SOR (Bt 2+Ct2) 

3APRINTA 

ABGOTO2D — 

5QDATA4 ,3,6.23,7.1,2.1H6, 3199 

6@END : 
Note that there must be a space between EDIT and PACK. 


EDITPACK will cause.a "NO SUCH FUNCTION” error message. 


OLD Command 

Retrieving and loading a saved file is usually just a 
matter of typing OLD and the file name in answer to the 
TTY's queries (or the short form OLD:file name). But 
as usual there are exceptions 1f your file has a pass~ 
word, or if you're accessing someone else's file or a 


library file. 


For password~protected files use the form 


PROBLEM NAME:BASEXL/POCUS | 


If another programmer has saved a file with read 


privileges, you may access it. by giving the file name 
and his (or her) user number. 


PROBLEM NAME:BASEX1, B232 


Three (3) asterisks (*) following the file name indi- 
cate that you're accessing a BCC installation livorary 
file. 


PROBLEM NAME: VECTOR*** 


Finally, if you are loading a file from your private 
library, list the file name and your library name 
separated by an asterisk. 


PROBLEM NAME:LOGI@*LIB 


COMPTLE/EXECUTE/STOP 
Commands described in this section: 
RUN RUNBIG 


RUNNH STOP 


RUN Command 
The FORTRAN and BASIC compilers convert your program | 
and data (source data) into a form understandable to 
fie machine (object code). It can then be executed by 
the computer. In the BCC 500 system both the compilation 
and execution of the current program are initiated by 


one command ~ RUN. 


While the program is actually executing, certain other 
commands are still recognized. These include STATUS, 


UY 3 TAPE. KEY (see chapter 2}, and the halt commands 


described later in this section. If you repeat the RUN 
command during execution, the TTY responds that the job 
is in "run" status and informs you of the elapsed 


running time since the job began. 


Running the BASEX1 problem yields a console log sheet 
like the following: 

TYPE OLD OR NEW:OLD 

PROBLEM NAME: BASEX1 


READY 
RUN 


BASEX1L 17:38 BCC @8/14/7@ FRI. 

5 

9.44579 

2. 1LE+6 

OUI OF DATA LINE # 29 

RUNNING TIME: @@.7 SECS. 

READY 

BYE 
As you recall, we fed the problem three sets of numbers 
in our DATA line (5%) of the program. The RUN state- 
ment causes the three answers to be calculated and 


printed as specified by the BASEX] instructions. 


RUNNH_ Command 
If you wish to suppress printing of the heading, 
BASEX1 17:38 etc. 


use the command form RUNNH (RUN No Heading). 


RUNBIG Command 


If your program uses between 1OK and 20K words of 


core, type RUNBIG instead of RUN. This forewarns the 
computer and keeps it a blowing its memory. For 
programs in the borderline area, bear Mound that 
RUNBIG jobs receive lower priority than RUN jobs. The 
BCC system actually handles programs up to 128K, but 


those larger than 20K should be negotiated with the 


company. 


Suppose now that you are performing a vector analysis 
uSing a current program called VECTOR and have just run 
out of data. Another program in storage, named POINTS, 
will supply additional input. This program can be 
executed immediately (bypassing the OLD routing) using 
onc ee these formats: 

RUN:program name 

RUNNH:program name 


RUNBIG: program name 


The "program name" can actually be extended to include 
the program name, (other) user number, library name, or 
password, 


RUNNH: POINTS, A123/HOCUS 


After the POINTS program is executed, there is no 
current program, At this juncture you would probably 


type RUNNH: VECTOR and feed in your new data. 


Console Halts and STOP 


The RUN command causes a program to execute until the 


job is completed. Execution can be stopped at any 
point, however, using any of several convenient 


escapes. 


As noted in the Console User's Guide, you may hit 
either the CTRL/SHIFT/@ key combination or the BREAK 
and BRK-RLS key combination at any time, depending 

on your particular TTY console. Print output can be 
stopped by hitting the "S" key (although this key is) 
interpreted as normal input at other times). When no 
I/O operation is in progress, use the FORBAS termin- 
ator STOP (which is also eunciacens input if typed 


in answer to an input request). 


The following console log illustrates many of the 
commands discussed in this chapter. It also introduces 
the LIST command, which is discussed in greater detail 
in the next chapter. 

USER NUMBER ~~ A123 


PASSWORD 


TYPE OLD OR NEW:OLD:BASEX1/MYCODE 


READY 
RENAME : BASEX2 


READY 
List 


BA SEX2 22:98 BCC 98/14/78 PRI s 
5 REM HYPOTENUSE 


20 READ B,C 
25 LET A = SOR (Bt2 + Ct2) 


39 PRINT A 

49 GOTO 2¢ 

50 DATA 4,3, 6.23, 7.1, 2.156, 319¢ 
69 END 


READY 
RUNNH 


5 

9.44579 

2 LEG 

OUT OF DATA LINE # 29 
RUNNING TIME: @%%.6 SECS. 


READY 
SCRATCH 


READY 
LIST 


BASEX2 22:99 BCC 98/14/72 FRI. 
NO PROGRAM 


READY 
BYE 


4. LISTING AND CHANGING FILES 
The functions described in chapters 2 and 3 are 
used to process entire files. Those discussed here are 
primarily line functions, although some categories run 
the spectrum from single-—character to entire-catalog 


manipulation. 


LIST COMMANDS 
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Commands described in this section: 


LIST CATALOG 
LISTNH EDIT PAGE 


EDIT LIST EDIT TEXT 


Lis? and LISTNH Commands 
List commands are a good illustration of the range of 
flexibility just mentioned. LIST is used primarily to 
produce an mediate Printout Of the current. tile, as 
was done in the summary example of chapter 3. hike 
RUN, it also has a heading suppressing option, LISTNH. 
Should you want to see only a specific portion of a 
file, however, you can use one of the following formats: 
LIST:line number 


LISTNH: line number 


Executing this instruction, the printout begins at the. 
indicated line number and continues to the end of the 
file or until one of the print halt options (see chapter 


3) is exercised. 


EDIT LISt Command 
The EDIT LIST command allows even more leeway in listing 
specific lines. Telling the computer to 

EDIT LIST 10, 38, 58, 88 -~ 13@ 
prints out the three individual lines referenced, plus 


the block of lines 8@ through 130 inclusive. Again 


note that there must always be a_ space between each word 
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first argument. The only limitation on the number of 


os emt 


arguments permitted is the length of the input line. 


The arguments shown above are listed in ascending order, 
but this is not necessary. In fact, 130-80 would 

have printed the block in reverse order. An EDIT LIST 
command with no arguments causes the entire file to be 


printed in reverse order. 


To.get a feel for the various listing possibilities, 
study the factorial example below. First the entire 
program is listed, then the subroutine only, next the 
entire program in reverse, the numbers being factored 
plus the subroutine, and finally a couple of stray lines 
plus the subroutine in reverse order. 


READY 
LIST 


BASEX2 16:48 BCC G8/14/7¢8 PRE 


5 REM PRINT FACTORIAL N 
1? LET N = 1¢ 

28 GOSUB 8¢ 

30 LET N= 15 

AQ GOSUB 8¢ 

5¢ LET N = 29 


6% GOSUB 8@ 


7@ STOP 
99 FOR G= 1 TON STEP 1 


199 LET F=F*G oo A 
119 NEXT G 
129 PRINT N; 
139 RETURN 
14% END 


= 


READY 
LISTNH:89 


89 LET F 1 
99 FOR G = 1 TO N STEP 1 
199 LET F =F * G 
119 NEXT G 

128 PRINT N-F 

130 RETURN 

148 END 


I! 


i 


—— 


READY 
EDIT List 


148 END 

139 RETURN 
124 PRINT N;F 
11@ NEXT G 


1g LET FP=F*G 

99 FORG= 1 TO N STEP 1 
86 LEY F=l - 

70 sTop 


69 GOSUB 89 ~ 
_ 58 LET N= 20 
48 GOSUB 8% 
38 LET N= 15 

2 GOSUB 8g 
1g LET N= 19 


5 REM PRINT FACTORIAL N 
READY 

EDIT LISt 10, 38, 50, 89-130 
1G LET N= 1¢ 

39 LET N = 15 

50 LET N= 20 

SY Lepr =) 

99 FOR G= 1 T0O N STEP ] 
lJ LET F= F*G 


11d . NEXT G 
126 PRINT N;F 
138 RETURN 


READY 
EDIV LIST 5, 139-89, 140 


5 REM PRINT FACTORIAL N 
13@ RETURN 

128 PRINT N:F 

11@ NEXT G 


19g LET F F* G 


I! 


°9 FOR G= 1 TO N STEP 2 
88 LET F = 1 


‘149 END 


CATALOG Command . 
The content of your catalog may be listed also. If you. 
only want to see the names of the files in your catalog, 


type CATALOG. Passwords attached to a file name will 


not be shown. 


To list library file names, use one of these: 


CATALOG** * | BCC System 

CAT * ** Library 
CATALOG:user library name Specified User 
CAT:user library name Library 


EDIT PAGE and EDIT TEXT 
To see the content of your cataloged files or BCC 
system files, as well as their names, type in either 
the EDIT PAGE or EDIT TEXT command. Both use the same 
format, but EDIT TEXT suppresses program line numbers 


in the printout. 


EDIT PAGE progl—page, prog2,... prog9 
EDIT TEXT progl~page, prog2,...prog9 
As the form implies, as many as nine programs can be 


rinted out with one command. The "page" indication 
a 


tells the computer what to number the first page of 
| 
the list. If you prefer not to specify this option, 


the default (assumed) value is one. 


The format of the printed output is as follows: 
8-1/2 x ll. pages, divided by dashed lines; 
Page numbers centered at top; 
Up to 50 lines per page; 
Ten blank lines between programs (but if there 
are less than 20 lines left on a page, the 


new program begins on the following page. 


The following example shows how the outputs from EDIT 
PAGE and EDIT TEXT differ. Because only user files are 
listed, there is no need to distinguish between BASIC 
and FORTRAN ee ueone: 


READY 
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BASEXL 


5 REM HYPOTENUSE 

28 READ B,C 

25 LET A = SOR (Bt2 + Ct2) 

38 PRINT A 

AY GOTO 29 

59 DATA 4,3, 6.23, 7.1, 2.156, 319¢ 
6% END | | 


BASEX2 


5 REM PRINT FACTORIAL N 
1@ LET N = 1¢ 

20 GOSUB 8@ 

30 LET N= 15 

48 GOSUB 89 i 

50 LET N = 20 

6% GOSUB 8¢ 

7@ STOP 

80 LET F = 1 

90 FOR G = 1 TO N STEP 1 
190 LET F=F#*G 

110 NEXT G 

129 PRINT N;F 

130 RETURN 

148 END 


FOREXL 


1gc FIND THE LARGEST OF THREE NUMBERS 
29 READ 12, L, M, N 
32 12 FORMAT (3127) 

AG IF (.GT.M) GOTO 3 

59 IT = M | : 

69 2 IF (IT.LT.N) IT = N 

72 PRINT 19,17 

8G CALI EXIT 


eee RD By SAREE IY MO WIE RT ee i ET ee AOS BI RY RI ee TNT ED SIMON OLR VU OOS BD eK RETR SE MERE ED STOR GUE GOAT? ges. fe) NOME fReeD OT EAE UNE GEE RE Ge MN eR ETO GEele ERT wet, 


FOREX] CONTINUED 


99 3 IT = L 

189 GO TO 2 

119 19 FORMAT ("THE LARGEST NUMBER IS", 17) 
129 END 


(HIT "S" KEY AT THIS POINT TO STOP 


OY OTE 


LINE SKIPPING) 


READY 
EDIT TEXT BASEX2-3, FOREXL 


Gee RET BOE SRR TUE GUT BN RT AU MTT EOE RIM GRO QUT RD Bory eb CENT Pam REI MEET OUR Te AK OD GR MATEY GriIy EK EO OLEERZ OTIS MOETS MPSS! OFT GR aE SENIOR MAD KE Gow GURU BR RT Berg BG HERD oR FEI aN RET enn 


BASEX2 
REM PRINT FACTORIAL N 
LET N= 19 
GOSUB 8% 
LET N = 15 
GOSUB 89% 
LET N = 29 
GOSUB 8% 
STOP 
Ley FS 1 
FOR G = 1 TO N STEP 1 
LET F = F * G 
NEXT G 
PRINT N:F 
RETURN 
END 
FOREX] 
C FIND THE LARGEST OF THREE NUMBERS 
READ 12, L, M, N | 
12 FORMAT (317) 
IF (L.GT.M) GOTO 3 
LT = M | 
2 Le (rN) er SN 
PRINT 19,1T 
CALL EXIT 
3 Tt =. 1 
GO TO 2 
10 FORMAT ("THE LARGEST NUMBER IS", I7) 


RESEQUENCING FILES 


END 


Two commands are available for rearranging and renumber- 


ing your files: EDIT MOVE and EDIT RESEQUENCE, 


EDIT MOVE Command 
Ett PAU Ve Oa dt 


EDIT MOVE lets you move a single line or block of lines 


to a new position in your program. 

Examples : 

EDIT MOVE 79, 159 

In the first case the block of lines 7@ through 11@ 
are moved and inserted following line 15@. The secon 
moves only line 7% to the position following line 15@. 
This command will not execute if the new location (15¢ 
in this case) falls within the sue Plead tied being 
moved. EDIT MOVE 79-119, 1@@ will hang you up. Trying 


to visualize such a move will hang you up too. 


Following the EDIT MOVE, lines 7@-11@ in the first 
example would be renumbered in increments of one, 

151, 152, 153, etc. If the number of lines in the block 
overlaps the instruction(s) originally following line. 
15%, the latter is bumped up and resequenced and the 
message BLOCK TOO LARGE is issued (for your information 


only). 


EDIT RESEQUENCE Command 
EDIT RESEQUENCE provides you with a neat answer to 
messes created by many insertions or moves. It looks 
tricky at first because it requires all of three argu- 


ments (aaargh:), but these can be mastered with a bit 


of concentration and a few applications. 


EDIT RESEQUENCE argl, arg2, arg3 


argl — This number will be the first line of the 


resequenced file (or file portion); 

arg2 - May be a single line number or block of 
lines (e.g., 7@-119%); represents the pre- 
sent first line (or entire block) where 
‘resequencing is to start; "@" alone will 
resequence the entire file; 

arg3. - This number is the increment between 2h 


resequenced line numbers. 


- You may simply specify EDIT RESEQUENCE and 
default values 109, %@, 1% are assumed. But 


easy outs add no flair to your life style! 


When using EDIT RESEQUENCE, you should specify which 
system you're working in. Line number references within 
BASIC programs or FORTRAN statement numbers may be in- 


correctly adjusted otherwise. 


In the following examples, OLD friend BASEX2 has been 
loaded and a remark added at line 75. 


READY 


OAT SOV HDRES SSENYRIAEY MOT ERRERLA 73S ten 


J5__ REM CALCULATE FACTORIAL N 
LISTNH 
5 REM PRINT FACTORIAL N 

1g LET N = 19 

20 GOSUB 89 

39 Bel N35; 

AQ GOSUB 82 

69 GOSUB 8@Y 

79 STOP 

75 REM CALCULATE FACTORIAL N 
89 Let Ps 2 

og FOR G = 1 TON STEP L 

19? LET F= F *¥ G 

11¢ NEXT G 


4.9 


124 PRINT N;F 
138 RETURN 
149 END 


Being all-wise, we decide the added remark would be 


more appropriate at the head of the program. 


READY 
EDIT MOVE 756 
READY 
LISTNH 
l REM CALCULATE FACTORIAL WN 
3 REM PRINT FACTORIAL N 
1é LET N = 19, 
2G GOSUB && 
30 LET N = 15 
— Ag GOSUB 83 
4, LET N = 8&9 
66 GOSUB 8@ 
7G STGP 
50 LET Fo = 4 
98 FOR G = {| TON STEP j 
1@6 LET F = F-& & - | 
11G NEXT G - 
120 =~ PRINT NSE 
13S RETURN 
149 END 


But now, being fastidious by nature, we're displeased 


with the irregular line numbering system. 


READY 
EDIT RESEQUENCE 1051-16 


READY 

LISTNH | 

19- REM CALCULATE FACTORIAL N 
20 REM PRINT FACTORIAL N- 
38 LET N= yg - 

Ag GOSUB iag 

5G LET No = 45 

6% GOSUB igs 

7@ LET N = 2g 

5G GOSUB {jag 
92 STOP 

138 LET Fo= 4 
116 FOR G =» 1 TON STEP 1 
1e@ LET F =F « & | 
139 NEXT Go 
148 «PRINT NsF 

158 RETURN 

149 END 


4-30 


In the resequenced version lines 4%, 64, and 
| 
8% read GOSUB 19M to allow for the changed location 


of the subroutine. 


INSERTIONS 
Insertions and deletions are to some extent interwoven. 
An inserted line, for example, could be a replacement 
for another line with the same number. EDIT REPLACE 


performs the same function with characters. 


Line Insertion 


> ore 


The simplest method of line insertion. involves no 
command at all. In the example ending the last section, 
the line 75 REM statement was simply typed and the 
computer automatically placed it between lines 79% and 
8%. As noted, we could also use this form to change 
a line. For example, 

39 LET N= 5 
could be typed to replace the current | 

39 LET N = 19 

EDIT DUPLICATE Command 

If a line is repeated in a program, the EDIT DUPLICATE 
command may. be used to save retyping the statement each 
time it appears. All duplicated lines are preserved in 


their original positions as well as appearing in the 


specified new location(s). 


In the present version of BASEX2, we could have typed 


EDIT DUPLICATE 49, 59, 79 


HON ADA MMO RAMEN PONS IO ANITA 


instead of typing GOSUB 100% three times. Here we are 
telling the computer to duplicate line 4@ following 
lines 5% and 7%. Insert line numbers may appear in any 
order and as many may hasanee heed as fit in the ut. 
line. The only requirement is that the line being 


duplicated be listed first. 


To duplicate a block of lines, use the same format. 
EDIT DUPLICATE 18-79, 199, 159, 125, etc. 

After the EDIT DUPLICATE is executed, your program is 

resequenced using the EDIT RESEQUENCE default options 

(160, 6, 18). Again, indicate the system you are using 


to preserve consistency in your internal references, 


Deletions fall into several groups, i.e., deletions of 
entire files, of lines or blocks of lines, or of indiv- 
idual characters. For the first category see chapter 


3, where the SCRATCH and UNSAVE commands are dis- 


EDIT EX'TRACT Command 
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Lines and/or blocks of lines can be deleted using the 
EDIT EXTRACT or EDIT DELETE commands. EDIT BATRACT 
specifies the numbers of lines to be saved in a program 
and the rest of the file is deleted. Simply designate 
as many lines or blocks of lines as you wish, in any 
order, up to the limit of the input line eng et. 


Dit EXTRACT 10-30, 70, 100-160, 90 


PORES 6 STUDY Some er sgrR 


EDIT DELETE Command 
EDIT DELETE is essentially a cameo. of EDIT EXTRACT. 
Instead of specifying lines to be saved and "cutting 
away" the rest of the program, EDIT DELETE indicates 
which lines are to be removed and the remainder of the. 
program stays intact. The same formatting rules apply 
as for EDIT EXTRACT. 


EDIT DELETE 19-48, 8@, 1989-129, 7 


In the following example, file BASEX2 is copied as 
BASEX3 and chopped up using the EDIT EXTRACT and 

EDIT DELETE commands. Compare the printout to the last 
version of the program listed in the EDIT RESEQUENCE 
example. | 


READY 
EDIT DXTRACT 19, 69, 89-169, 49 


READY 

LISTNH 
19g REM CALCULATE FACTORIAL N 
AG GOSUB 190% 

6a GOSUB 1¢¢ 

8e GOSUB 199 

99 STOP 

1@? LET F= 1] 

119 FOR G= 1 TON STEP 1 
1209 LET P= F*G 

139 NEXT G 

149 PRINT N:F 

158 RETURN 

16@ END 


READY | 
EDIT DELETE 60-90, 40 


READY 
LIS TNE 


1d REM CALCULATE FACTORIAL N 
1@9 LET F = 1 


119 FOR G= 1TON STEP 1 
120 LET F= F*G 
130 NEXT G 
148 PRINT N;F 
158 RETURN 
169 END 
CTRI/X Keys 
To delete the line currently being typed, hold down 
the CTRL key and type X (or use a corresponding console 


control, depending on your teletypewriter model--see 


function table in Console User's Guide, chapter 2). 


SHIFT /< Keys 
To delete the last character typed, hold down the SHTF'' 
key and type <« (over letter 0). Refer to the Console 
User's Guide function table for variations. To delete 


several consecutive characters, hit the SHIFT/< for each 


one to be erased. 


EDIT REPLACE COMMAND 


Sean 


EDIT REPLACE stands somewhat apart from the other EDIT 
commands, both in function and format. Hence, its 
separate treatment here at the end of the chapter. “It 
could be classified as an "advanced" instruction, like 
the EDIT MERGE and EDIT WEAVE commands introduced in 


the next chapter. 


EDIT REPLACE lets you specify the character(s) in a line, 
including blanks, that you wish te supplant and what the 
replacement is to be. You may enter several such in- 
structions in a single command line, or you may use 


EDIT REPTLACE to execute a file made up of many replace- 


Ata 


In its simplest form this command might be used to 
correct a few characters in a line. 

10 REM CALCALATE FACTORIAL N 

EDIT REPLACE #LCAL#LCULHIO 

LISTNH: 10 

1@ REM CALCULATE FACTORIAL N 
Line scans begin with the first character following 
the line number. Be sure you identify the replaced 
characters uniquely. Should you type only #CAI# as 
the character string to be replaced with CUL in this 


example, the first CAL of "CALCALATE" would be changed 


also. 


The general format rule for EDIT REPLACE is as follows: 
EDIT REPLACE argl#replacereplacement#arg2, arg3 
where 
argl represents the maximum number of replacements 
in each line (default value is MeL mee.) 3 
# acts as a separator (you may also use characters 
S$, +, "5 % ', or &); 
to be removed; . 
"replacement" is the new character string; 
arg2 is the line number where the replacement 
search begins (default value is Zero); 
arg3 is the number of the final line to be scanned 


(default value is 999999). 


If both "arg2" and "arg3" are omitted, the entire file 


1s scanned. .If only "arg2" is given, as in the example 
above (1%), then only that line is scanned and the 


default for "arg3" is ignored. 


This format can be repeated in the same line to provide 
multiple replacements, with each repetition divided by 


a colon. 


ee nes 


Multiple commands are executed sequentially. Be careful 
that you do not unintentionally wipe out a replacement 
performed earlier in the same command sequence. A re- 
finement of the EDIT REPLACE format also lets you 
perform "non-specific" character replacement, using "?" 
to indicate unknown characters. 

EDIT REPLACE #?OCUSHHOCUSH: 


HOCUS replaces any five-character string ending in OCUS. 


eter 


EDIT REPLACEHPRING?? ?#WRITE (OUT, 22?) 4 
Here we replace all PRINT statements with WRITE(OUT, ) 
while retaining any data following the statements. The 
point to remember here is that the number of question 


marks in the "replace" and "replacement" sections must 


EFarlier we said EDIT REPLACE could be used to execute 
entire files of replacements as well as performing 

single line assignments. This ability comes in very 
handy for extensive conversion work. In this case we 


use the forin 


EDIT REPLACE BASOUT 
] 
where BASOUT is a routine for converting BASIC format 


programs to FORTRAN format. 


10 #I2FRIF (# 
29 HTT ENE ) GOTOH 
38 +#LETHHt 


etc. 


Note that statement 39 completely deletes, rather than 


replaces, every occurance of LET. 


5. COMBINING PILES 
Program and subroutine files can be combined using 
either the EDIT WEAVE or EDIT MERGE command. EDIT 
WEAVE. combines files in the sequence of existing line 
numbers. EDIT MERGE allows you to combine subprograms 
with a main program in any order you wish, and then 


resequences the resultant file. 


EDIT WEAVE COMMAND 
EDIT WEAVE lets you combine as many as nine saved programs. 
Programs are woven together and existing line numbers 
retained. If two lines have the same number, one will 
be lost (the last mentioned is retained). Take 
care that you do not end up with more nan one END 
statement or an END statement stuck in the heart of 
your new program. Not only does this create a painful 


image, it also frustrates the compiler. 


Suppose we wanted to combine our BASEXI hypotenuse cal- 
culation function and BASEX2 factorial problem. Re- 
membering that line 698 contained the END statement in 
BASEX1, we could load BASEX2, resequence it to overlay 
line 6%, rename and save the reseguenced program, and 
perform the weave. 


READY 
OLD: RASEX2 
READY 

EDUL RESEQUENCE 69,9, 19 


READY 
RENAME : BASEX4 


READY 
SAVE 


READY 
EDIT WEAVE BASEX1L, BASEX4 


READY 
LISTNEH 


5 REM HYPOTENUSE 

28 READ B,C 

25 LET A = SOR (Bt2 + Ct2) 
30 PRINT A 

4Y GOTO 29 

DO: DATA 243: 6223% Tals 221863. 3100 
6% REM CALCULATE FACTORIAL N 
7@ REM PRINT FACTORIAL N 
88 LET N = 1¢ 

99 GOSUB 1597 . 

109 LET N = 15 

118 GOSUB 159 

120 LET N = 2@¢ 

138 GOSUB 15¢ 

149 STOP | 

159 LET F = 1 , 

160 FOR G = 1 TOWN STEP 1 
170 LET F=jF*G 

189 NEXT G 

19% PRINT N;:F 

2909 RETURN 

219 END 


EDIT MERGE COMMAND 


EDIT MERGE also allows you to combine as many as nine 


saved files. With this command, however, you may 


inserted into the main program. After the merger, the 
new program 1s resequenced (1997,9,19), and as usual 
this means you should tell the computer what system 


you're in. 


The cotrpmand format 1s 
EDIT MERGE main, subl-~n, sub2-—n... 
where 


5-2 


"Main" represents the main program name; 

"sub]l, sub2" are ae subprograms being merged 
into the main ene 

"n" represents the line number in "main" that 
this particular subprogram is to follow; if 
no line numbers are specified, Cae sae veosesne 
are appended sequentially after the last 


statement in "main." 


Again, be certain there 1s no more than one END state- 


ment and that it 1s properly placed in your program. 


In the following example two data files are created and 
saved to supply more input for our Original BASEX1 
program. 
DATA 1 
19 REM DATA STATEMENTS FOLLOW 
20 DATA 1, 2, 5, 6 
38 DATA 1@, 11, 12, 13, 14, 15 
DATA 2 
1@ REM MORE DATA 
28 DATA 29, 21, 22, 23 
38 DATA 39, 31, 32, 33 
Note that neither file contains an END statement, and 


that we're not conerned with lines having the same 


number, 


Now we can EDIT MERGE the files, first with no insert- 
ion line specification, then in a more logical 
construction. 


anes, 


EDIT MERGE BASEXI , DATA], DATA2 


REANY 
LISTNH 

10¢ REM HYPOTENUSE 

11@ READ B,C 

129 LET A = SOR (Bt2 + Ct2) 

13% PRINT A 

14% GOTO 29 

150 DATA 4,35. 64.23% “Joly 2.186, 3108 
16¢@ END 

178 REM DATA STATEMENTS FOLLOW 

18@ DATA 1,2,5,6 

199 DATA 17.01. 12,13,14,15 

200 REM MORE DATA 

21% DATA 29,21, 22,23 

220 DATA 37,/31.5233 


This new file will not compile because the END statement 


is not the highest numbered line. 


EDIT MERGE BASEX1, DATAL~49, DATA2-59 


READY 
LISTNH 


1@9 REM HYPOTENUSE 

11Q@ READ B,C 

12¢ LET A = SOR (Bt2 + Ct2) 

139 PRINT A 

148 GOTO 2¢ 

158 REM DATA STATEMENTS FOLLOW 
168 DATA 1,2,5,6 

17@ DATA 19,11,12,13,14,15 | 
18@ DATA 4,3, 6.23, 7.1, 2.1E6, 3199 
199 REM MORE. DATA 
208 DATA 20,21,22, 23 

218 DATA 30,31. 32:33 

229 END 


Neither EDIT WEAVE nor EDIT MERGE affects the saved 
versions of the combined files. If you want to keep 
both the new and old programs, rename the new one before 


Saving it. 


APPENDIX A: GENERAL FORBAS CONSIDERATIONS 
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Numbers appearing in commands may be preceded or followed by any 
number of blanks. Command names, however, must be separated from 
each other and from their arguments by at least one blank (except 


for commands followed by a colon (:) -~ OLD, NEW, RENAME, etc.). 


The only restriction on the number of intervals, arguments, etc., 


is the length of the input Line. 


Every command changes your program, but only SAVE and UNSAVE affect 


the permanent copy. 


SYSTEM should be specified whenever a resequencing command is in- 


voked (RESEQUENCE, DUPLICATE, PACK, MOVE, MERGE). 


While files without line numbers can be created by programs, they 
cannot be modified with the editing commands. They can be printed — 
out using LIST, LISTNH, EDIT TEXT, or EDIT LIST (without arguments). 
EDIT MERGE also accepts unnumbered files and reads them correctly. 


After resequencing they do, of course, have numbers. 


Unless the end letters of a command are vital, (e.g., LISTNH, RUNNH), 
the command can be invoked by typing only the first three letters 
and the carriage. return (é€.g., EDI LIS for EDIT LIST, GOO for 


GOODBYE) . 


Files must be saved before they can be used as parameters by EDIT 


MERGE and EDIT WEAVE. These commands ignore the current program. 


Syntax Specifications: 
User numbers: _ Four characters, 


g PQ A—»7, 


A-1 


User passwords: Four characters, 


no restrictions 


User libraries: Three characters, 


G-—>9 A-->Z 


File names 


Six characters, 
c 
#$ G->9 A->Z A°->Z 
File passwords: Six characters, 
c Cc 
G—>9 A-rZ A -PZ, 


plus internal codes 19@B-~137B 


D4 All statements in this manual are true forever, except for those 


to be modified at some future date. 


PRACE 


APPENDIX B: BCC LIBRARY FILES 
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Not available 


yet 


Bel 


INDEX 
Back~Arrow (Shift/<) 414 
Break Bena e, 
Break Release 


BRK-RLS | 3-12 


BYE Command | 2-3 
Carriage Return 1-1, 2-1 
Catalog 


CATALOG Command 4—4. 
User Catalog 3~—1 


Character 


Character Deletion (Shift) | | AJA 
Character Replacement 4, 


Console Halts | Serr 
CTRL/SHIFT/@ Keys 3~-12 
CTRL/X Keys | 4-14 
Delete | 

EDIT DELETE Command | - 4—13 
Duplicate 

EDIT DUPLICATE Command | 4—~li, A-1 
Bdit Commands 


BDIT DEDETE 413 

BDIT DUPLICATE 4-1), A-l 
BDL? EXTRACT 4-12 

EDIT LIST 

BDIT MERGE 

BDIT MOVE 

EDIT PACK 

EDIT PAGE: 

EDIT REPLACHK 
EDIT RESEHOUBNCE 
EDIT TEXT 

EDIT WEAVE 


1 4] op. Eo 
f NO 
Now os Ne Ne Ne ONS 


2 
i 


PDS COR BS SSN ND 


> D> > 


! 


Ne 


Bxtract 


BEDTT EXTRACT Conmand 4.—] 2 


File 
File Combination 
File Deletion 
File Editing 
File Execution 
File General Description 
File Listing 
File Name 
File Password 
File Retrieval 
File Storage 
FORBAS Control Language 
GOODBYE Command 
HELLO Command 
KEY Command 
Library 
BCC Installation Library 
Library Listing 
User Library 
Line 
Line Deletion (CTRL/X) 
Line Insertion 
Line Numbers 
Listing 
Catalog Listing 
EDIT LIST Command 
File Listing 
LIST Comnand 
LISTNH Command 
Logging On 
Logging Off 
Merge 
EDIT MERGE Command 
Move 
EDIT MOVE Command 
NEW Comnand 


OLD Command 


WWWW RWW PW 
; otf 
MO BN REO ANI We 


Ne 


i | 
Ne Ne 


Fh rh 
Fh WEA 


Fh 
W 2 Fh 


{ 


> 
PI 4 


® 


oS) 


oe 
~! 


rh 
ry 
Ne 


if 
c 


Pack 

EDIT PACK Command 
Page 

EDIT PAGE Command 
Paper Tape Read 
Password 


User Password 
File Password 


Privilege Codes 
Problem Name 
RENAME Coramand 


Replace 


EDIT REPLACE Command 


Resequence 


EDIT RESEQUENCE Command 


RESTART Command 
Return 
Carriage Return 
RUBOUT Key 7 
Run 
RUN | Command 
RUNBIG Command 
RUNNE Command 
S Key 
SAVE Command 
SCRATCH Command 
STATUS Command 
STOP Conmand 
storage 


Fu Le storage 


3-7, A-1 


Syntax Specifications 
SYSTEM Command 
System Monitor Commands 
TAPE Command 
Tape Read Procedure 
Text 

EDIT TEXT Command 
Truth 
TTY Command 
UNSAVE Command 
User Number 
User Password 
Weave 


EDIT WEAVE Commnand 


